EnigmA Amiga Run 1997 April/EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso/EARCD/biz/swood/FW_Font.lha/FW_Font/FontLook-Auto.fwrexx

Text File | 1996-12-15 | 5KB | 2 lines

/* Optimized with RexxOpt 1.7 */
R='0A'X;Address='FinalW';Options results;STATUS PORTNAME;FW=result;address=FW;SIGNAL ON BREAK_C;'ShowMessage 2 1 "FontLook - Auto V2.60" "für Font-Verzeichnisse..." "(©) Heiko Schröder - 15.12.96" ":-)" "Ok" "(-:"';'ShowMessage 1 1 "A C H T U N G !" "Das Makro benötigt ein leeres Dokument." "Ihr jetziges Dokument wird gelöscht!" "Ja" "Abbruch" ""';if result=2 then call BREAK_C;Cleardoc Force;'ShowMessage 2 1 "Codes oder Layout" "" "" "Codes" "Layout" ""';cl=result;'ShowMessage 2 1 "Wie soll die" "Bilschirmausgabe erfolgen?" "" "Normal" "Speed" ""';ba=result;Temp="ram:fonts";if ~show('L',"rexxreqtools.library") then;do;if ~addlib('rexxreqtools.library',0,-30,0) then;do;'ShowMessage 1 1 "Fehler...." "Benötige RexxReqTools.library" " A B B R U C H ! !" "Okay" "" ""';exit;end;end;dir=rtfilerequest(,,"Verzeichnis auswählen...","»·Start·«","rtfi_flags = freqf_nofiles");if dir="" then;do;'ShowMessage 1 1 "Kein Verzeichnis ausgewählt!" "   A B B R U C H ! !" "" "Okay" "" ""';exit;end;dir=d2c(34)||dir||d2c(34);address command 'list ' dir||' to=' Temp||' files lformat "%s%s"';If OPEN('file',Temp,"R") then;If Seek("file",0,"E")=0 then;do;'ShowMessage 1 1 "Verzeichnis ist leer" " A B B R U C H ! !" "" "Okay" "" ""';address "REXX";close("file");EXIT;end;address "REXX";close("file");address command 'sort ' Temp Temp;OPEN('file',Temp,"R");address(FW);'ShowMessage 1 1 "Benötigen Sie Locher-Marken?" "" "" "Ja" "Nein" ""';lm=result;'ShowMessage 1 1 "Wie geht es weiter?" "" "" "Speichern" "Speichern & Drucken" "Drucken"';wgw=result;DO WHILE 1;FontName=ReadLn('file');IF EOF('file') THEN;do;address "REXX";close('file');call Ende;End;TextTool;Font FontName;a=RC;If a=0 then;do;Type d2c(32);BackSpace;status FontPath;FullFontName=result;pos=LASTPOS('/',FullFontName);IF (pos~=0) THEN;FontName=RIGHT(FullFontName,LENGTH(FullFontName)-pos);ELSE;DO;pos=LASTPOS(':',FullFontName);IF (pos~=0) THEN;FontName=Right(FullFontName,LENGTH(FullFontName)-pos);ELSE;EXIT;END;IF ba=2 THEN;DO;View 20;End;GraphicTool;LinePrefs LineWt .5;If lm=1 then DrawLine 1 .5 14.85 1 14.85;If cl=1 then;do;DrawLine 1 2 3.5 20 3.5;DrawLine 1 2 26 20 26;TextTool;Pagesetup Pagetype A4 Orient Tall Top 0 Bottom 2.54 Left 0 Right 0;SectionSetup Top 2.54 Bottom 2.54 Inside 2 Outside 1;Do i=0 to 13;SetTab i*1.3+0.8 Right;End;NameFont="FWDocs/Codes-"||FontName;Justify Center;Font Softsans;FontSize 18;Type FontName||R||R;Justify Left;a=0;DO w=1 to 15;Font Softsans;FontSize 8;DO x=a+33 to a+46;Type d2c(9)||x|| d2c(32)|| d2c(x);END;Type R;Font FontName;FontSize 24;DO x=a+33 to a+46;Type d2c(9);Type d2c(x);END;Type R;a=a+14;END;Font Softsans;FontSize 8;DO x=a+33 to a+45;Type d2c(9)||x|| d2c(32)|| d2c(x);END;Type R;Font FontName;FontSize 24;DO x=a+33 to a+45;Type d2c(9);Type d2c(x);END;Type R;FontSize 12;Type d2c(9)||R;Font Softsans;FontSize 8;Justify Right;Type Date(E);END;If cl=2 then;do;DrawLine 1 2 3.4 20 3.4;TextTool;Pagesetup Pagetype A4 Orient Tall Pages RightOnly Top 0 Bottom 2.54 Left 0 Right 0;SectionSetup Top 2.54 Bottom 2.54 Inside 2 Outside 1;Justify Center;NameFont="FWDocs/Layout-"||FontName;Font Softsans;FontSize 18;Type FontName||R;Justify Left;Font FontName;FontSize 8;Type R||"This is 8-point type - not easy to read!"||R;FontSize 9;Type "9-Point type is about the smallest readable size."||R;FontSize 10;Type "With 10-point type, we have a normal text size."||R;FontSize 12;Type "With some Fonts, 12-point type is easier to read."||R;FontSize 14;Type "14-point type is good for subheadings."||R;FontSize 16;Type "For larger subheadings, try 16-point type."||R;FontSize 18;Type "18-point type makes nice small headlines."||R;FontSize 24;Type "24-point type is for medium headlines."||R;FontSize 36;Type "36-point is for larger ones."||R;FontSize 48;Type "48-point almost shouts!"||R;FontSize 60;Type "60-point is huge!"||R;FontSize 12;Font SoftSans;Type "NORMAL"||R;Font FontName;Type "ABCDEFGHIJKLMNOPQRSTUVWXYZ"||R;Type "abcdefghijklmnopqrstuvwxyz 1234567890 !@#$%^&*()-+=[]{}/:;,.?"||R;Type "The quick brown fox jumps over the lazy dog. ÄÖÜäöüß"||R||R;Font SoftSans;Type "ERWEITERTER SCHRIFTCODE"||R;Font FontName;j=0;Do i=1 to 4;Do k=128+j to 159+j;Type d2c(k);End;Type R;j=j+32;End;End;View;If wgw~=3 then;Save NameFont;If wgw=2 then;Print;If wgw=3 then;Print;Cleardoc force;END;else;do;'ShowMessage 1 1 "FW kann diesen Font nicht anzeigen..." "Es ist kein FW typischer Font..." "" "Okay" "" ""';end;END;Ende:;Address(FW);If cl=1 then 'ShowMessage 2 1 "Die Dokumente sind im FWDocs-Drawer" "zu finden. Erkennbar am «Codes-.....«" "Vielen Dank für die Benutzung." "@-`-" "Bitte" ":-))"';If cl=2 then 'ShowMessage 2 1 "Die Dokumente sind im FWDocs-Drawer" "zu finden. Erkennbar am «Layout-.....«" "Vielen Dank für die Benutzung." "@-`-" "Bitte" ":-))"';Address command "delete ram:fonts QUIET";EXIT;BREAK_C:;'ShowMessage 1 1 "Makro-Abbruch..." "" "" "Ich weiß..." "" ""';View;address "REXX";CLOSE("file");Address command "delete ram:fonts QUIET";EXIT